{ ----------------------------------------------------------------------------
  Amstrad Notepad emulator
  Copyright (c) Michael Nixon (Zipplet) 2011.
  http://www.zipplet.co.uk/
  Licensed under the MIT license, please see mit_license.txt in the
  documentation directory.

  Beeper (audio) emulation
  ---------------------------------------------------------------------------- }

unit beeper;

interface

uses classes, globals, notepadstate;

type
  tbeeper = class(tobject)
    private
      { Emulation state object }
      hState: tnotepadstate;
    protected
    public
      constructor Create(stateobject: tnotepadstate);
      destructor Destroy; override;
  end;

implementation

{ ----------------------------------------------------------------------------
  tbeeper constructor
  ---------------------------------------------------------------------------- }
constructor tbeeper.Create(stateobject: tnotepadstate);
begin
  inherited Create;
  {}
  self.hState := stateobject;
end;

{ ----------------------------------------------------------------------------
  tbeeper destructor
  ---------------------------------------------------------------------------- }
destructor tbeeper.Destroy;
begin
  {}
  inherited Destroy;
end;

end.
